#!/usr/bin/perl require "busca.txt"; $data="busca.htm"; $stringpassed=$ENV{'QUERY_STRING'}; $stringpassed=~s/\+/ /g; ($wordspassed, $sf1passed)=split(/&&/,$stringpassed); $input = $ENV{'QUERY_STRING'}; @pairs = split(/&/, $input); foreach $input (@pairs) { ($name, $value) = split(/=/, lc($input)); $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a -fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } $maximumpage='50'; $start='0'; $enditem=$start+$maximumpage; $words=$FORM{'procurar'}; $ipi = $ENV{'REMOTE_ADDR'}; #--------------------------------------------------------26 Outubro de 2012 ------------------- if (-e "$template"){ open(OPENING, "$template") || die "I can't open $data"; @wholefile=; foreach $line (@wholefile){ $words=~s/words=//g; $line=~s/!num!/$Num/g; if ($line =~ /!results!/){ if ($line =~ /\+\+\+/){ $line=""; $flipflop="Flip";} if ($flipflop){ push (@closehtml,$line);}} else{ push (@openhtml,$line);} }} else { $flipflop="Default";} $words=~s/\"//g; $words=~s/ and / /g; $words=~s/ AND / /g; if (-e "$data"){ $noproblem="Arquivo Banco de dados encontrado";} else { $problem="Encontrado problema."; &security;} # converte palavras-chave de busca para minúsculas $words2=$words; $words=lc($words); $words2=~s/"/"/g; $words2=~s/%22/"/g; $keywords=$words2; $checklength=length($words); if ($checklength<$minimum){ $problem=$noresults; &security; } ($one1, $two2, $three3, $four4, $five5, $six6, $seven7, $eight8, $nine9)=split(/ /, $words); $problem="Can't open the data file."; open (FILE, "$data") || &security; @all=; close (FILE); print "Content-type: text/html\n\n"; if ($flipflop eq "Default"){ print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "$sitetitle - Resultados da Busca\n"; print "\n"; } else{ print "@openhtml\n";} foreach $line (@all){ $linetemp1=lc($line); ($nome,$OBS,$end,$home,$cid,$fone,$email,$ficha,$legal,$table,$field12,$field13,$cid_vazio,$email_valido,$codigo,$s,$cidade,$ddd,$skipthisfield)=split (/$delimiter/,$linetemp1); $line="$delimiter$line"; $line=~s/^ +//; $wholestring=" $nome,$OBS,$end,$home,$cid,$fone,$field7,$email,$ficha,$legal,$table,$field12,$field13,$cid,$email_valido,$codigo,"; if ($wholestring =~/\b$one1/ && $wholestring =~/\b$two2/ && $wholestring =~/\b$three3/ && $wholestring =~/\b$four4/ && $wholestring =~/\b$five5/ && $wholestring=~/\b$six6/ && $wholestring =~/\b$seven7/ && $wholestring=~/\b$eight8/ && $wholestring=~/\b$nine9/){ push (@keepers,$line); open (op, ">>xx.htm"); print op " $ddd|\n"; close (op); }} $length1=@keepers; if ($length1<$enditem){ $enditem=$length1; $displaystat="Y"; } $disstart=$start+1; sub parse_form { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if (length($buffer) < 5) { $buffer = $ENV{QUERY_STRING}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } } sub open_file { local ($filevar, $filemode, $filename) = @_; open ($filevar,$filemode . $filename) || die ("Can't open $filename"); } sub read_file { local ($filevar) = @_; <$filevar>; } sub write_file { local ($filevar, $line) = @_; print $filevar ($line); } if ($length1){ #=================================================================== open (op, "xx.htm"); while () { @words[0] = split(/\|\W+/gi); foreach $palavra (@words) { $count{$palavra}++; } } foreach $palavra (sort keys %count) { open (ox, ">>xxx.htm"); print ox "$count{$palavra} |$palavra \n"; unlink ("xx.htm"); } close (op); close (ox); open (ox, "xxx.htm"); while () { $lines++; } close (ox); #============================================================== print ""; print "

 "; print " Encontrado em $lines Cidades com os $length1 anunciante que tem como | $words | em seus negócios, Clique encima das Cidades abaixo para ir direto aos anuncinates. | "; print "Mostrando os anunciantes de $disstart a $enditem  


"; print "
Clique em cima do DDD da sua região

"; print "
\n"; open (ox, "xxx.htm"); while () { $lines++; @campo = split(/\s*\|\s*/); $cidad = $campo[1]; print "$cidad | "; } close (ox); print "
"; } else { &noresults } foreach $line (@keepers){ $line=~s/\n//g; $countline1++; if ($countline1>$start && $countline1<=$enditem){ ($sortfield,$nome,$OBS,$end,$home,$cid,$fone,$field7,$email,$ficha,$legal,$table,$field12,$field13,$field14,$email_valido,$codigo,$cidade,$ddd,$pagou,$usou,$skipthisfield)=split (/$delimiter/,$line); $nome=~s/\"//g; $cntResults++; $display=$cntResults+$start; #----------------------------------------------------------------- open(COUNTER, "/home/diskmesa/public_html/acesso/$ficha.dat"); $acessos = ; close(COUNTER); $acessos++; open(COUNTER, ">/home/diskmesa/public_html/acesso/$ficha.dat"); print COUNTER $acessos; close(COUNTER); #---------------------------------------- (019) 3269-2577------------------------- $fonet = substr($fone, 6, 4); $foneu = substr($fone, 11, 4); $fonex = $fonet.$foneu; #----------------------------------------------------------------- $condi = $legal; $ccc = "&cnt="; $ccc .= $acessos; if ($legal == "0") {$legal = $ccc;} else {$legal = "";} ############################################################################ ### NÃO CONSTA NO SMART.CGI print "$table. width=\"100%\">
  • \n"; #-----------------------------< ATUALIZAR FONE PARA CELULAR >------------------------------ while () { $lines++; $chars += length($_); $words += scalar(split(/\s+/, $_)); } ########################## FORMATAÇÃO DOS ANUNCIANTES (123) 6789-0123 $fone9 = length($fone); if ($fone9 == '11') {$fonewt= 'Whats'}; if ($fone9 == '10') {$fonewt= 'Phone'}; $fone10 = 'Fone ('.substr($fone,0,2). ') '.substr($fone,2,9); #telefone print "$display   $nome

    $fonewt

    "; $OBS=~s/\"//g; $OBS = substr($OBS,0,350); print "$OBS $fone10"; $end=~s/\"//g; print "$end
    "; $home=~s/\"//g; print "$home
    \n"; print "Fale conosco Aqui"; print "Cadastro"; print " --> Qt de exposição "; print "$acessos"; print ""; #---------------------------------------- INICIO DO EMAIL ------------------------------ $fuso = time - 10800; @dias = qw(Dom Seg Ter Qua Qui Sex Sab); ($seg, $min, $hr, $dia, $mes, $ano, $sdia) = (gmtime($fuso))[0, 1, 2, 3, 4, 5, 6]; $mes++; $ano += 1900; if ($seg < 9){$seg = "0$seg"} if ($seg < 9){$mes = "0$mes"} $hora = sprintf "%02d/%02d - %02d:%02d:%02d", $dia, $mes, $hr, $min, $seg; $ipx = $ENV{'HTTP_REFERER'}; $meta = $acessos + "500"; $mil_clik = 1000000+$acessos; $espaco = ". . . . . . "; $resto = substr($mil_clik, 4, 3); if ($resto eq "000" || $resto eq "500") {$resto = "verdadeiro"}; if ($resto eq "verdadeiro" && $email_valido eq "B") { ############################################################################################ open(COUNTER, "/home/diskmesa/public_html/contaclick/$ficha.txt"); $cnt = ; close(COUNTER); open(COUNTER, "/home/diskmesa/public_html/contaclick/$ficha.txt"); @copia = ; close(COUNTER); open (IN,">/home/diskmesa/public_html/contaclick/$ficha.txt"); print IN "$cnt\n||\+ 500 VIZUALIZAÇÃO| $hora| $FORM{'ipi'}|Enviado ao seu Email|$url|$conta|-----|||\n@copia[1..99]"; close (IN); ############################################################################################ $sendmail = '/usr/sbin/sendmail'; $Subject = "Seu anuncio já atingiu a marca de $acessos de visualização no Portal da DiskMesas"; open (MAIL,"|$sendmail -t"); print MAIL "Return-Path: anuncio\@diskmesas.com.br\n"; print MAIL "From: Portal da Disk-Mesas \n"; print MAIL "To: $email\n"; print MAIL "Subject: $Subject\n"; print MAIL "Content-type: text/html\n"; print MAIL "\n" ; print MAIL "\n" ; print MAIL ''."\n" ; print MAIL ''; print MAIL "\n" ; print MAIL "

    "; print MAIL "
    Disk*Mesas
    "; print MAIL "Todos Prestadores de Festa em um só lugar !!!
    "; print MAIL " www.diskmesas.com.br


    "; print MAIL ''."\n"; print MAIL " $espaco Olá . . $nome

    "; print MAIL " $espaco Esta mensagem foi enviada a você pelo motivo de seu anuncio atingir a marca de $acessos desde a criação do anuncio

    "; print MAIL " $espaco Não responda este email, ele foi gerado automaricamente no momento da visualização do seu anuncio

    "; print MAIL " $espaco Mantenha seu anuncio atualizado e com informações que descrevam bem o seu negócio, esta é a melhor forma de converter visitas em vendas.. Clicando logo abaixo, para entrar em seu Cadastro, onde vc poderá fazer atualização, trocar email, resetar o contador, excluir, ver relatórios de seu anuncio, mudar de categoria, entre outras itens.

    "; print MAIL "
    --------------- COMO ESTÁ APARECENDO SEU ANUNCIO ---------------


    "; #%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%<<<< 04/10/13 >>>>%%%%%%%%%%%%%%%%%%%%%% # FORMATAÇÃO DO VISUAL DO ANUNCIO print MAIL "
    "; print MAIL "$table. width=\"100%\">"; $OBS=~s/\"//g; $OBS = substr($OBS,0,350); print MAIL ""; $end=~s/\"//g; print MAIL ""; $home=~s/\"//g; print MAIL "\n"; print MAIL ""; ####################################33 print MAIL "
  • \n"; print MAIL "$display   $nome

    • $fone9

    $OBS
    $end
    $home
    Fale ConoscoCadastro"; ##################################### print MAIL " --> Qt de exposição "; print MAIL "$acessos"; print MAIL "
    "; print MAIL "
    "; #----------------------------------------------------------->>>>>>>>>>>>>>>>> print MAIL "
    "; print MAIL ""; print MAIL ""; print MAIL ""; print MAIL ""; print MAIL ""; print MAIL ""; print MAIL ""; print MAIL ""; print MAIL ""; print MAIL ""; print MAIL ""; print MAIL ""; print MAIL ""; print MAIL ""; print MAIL "
    Dia e Hora da Visualização. $hora
    Estava procurando Por \"$words\"
    Onde estava http://www.diskmesas.com.br/smart.cgi?procurar=$words
    Ip da máquina do Usuário . $ENV{'REMOTE_ADDR'}
    Seu Anuncio já Apareceu $acessos vezes.
    Seu Anuncio foi clicado $cnt vezes.
    Posição do Anuncio na pesquiza $display
    Situação de seu Anuncio $condicao
    Para Rever os seu Emails ->>Em construção !!!
    Para Reclassificar seu anuncio ->>Reclassificar !!!
    Para Acessar sua conta ->>Entrar na Conta !!!
    Relatórios estatistico da conta . ->>Ver o Relatório !!!
    Email cadastrado $email
    Vencimento da Anuidade ->> $horaa
    DDD + Fone do anuncio ->> $fone
    "; print MAIL "    "; print MAIL "
    "; #-----------------------------------------------------------<<<<<<<<<<<<<<<<<<<< print MAIL "
    "; print MAIL " $espaco Acabamos de fazer um relatórios estatistico de sua conta, onde vc poderá ver os ultimos visitante, a quantidade de cliques que ja recebeu, os IP de onde partiu a solicitação, a hora que ele entrou no seu site, o que procurava em nosso site, para onde foi redirecionado e muitos mais informações, confira !!!     Verificar .

    "; print MAIL " $espaco Para que seja redirecionado ao seu site com reciprocidade, coloque dentro das tag </body> de seu site, a seguinte tag -> <script SRC='http://www.diskmesas.com.br/banner.js'> </script> <- Copie e cole somente o codigo em vermelho ... Após fazer isso, nos envie um email do local onde foi colocado o código.

    "; print MAIL " $espaco Você pode ganhar mais 60 dias de classificação especial indicando um novo, desde que seja identificado, veja novos vantagens ao seu anuncio. Veja como Funciona

    "; print MAIL "
    "; print MAIL " $espaco Esperimente nosso planos de hospedagem de dominios, damos 30 dias grátis para experimentar e depois somente R\$ 0,18 (isso mesmo, dezoito centavos por dia!!! ou R\$ 65,00 por ano). Você contrata quantos dias vai querer. Provedores instalado na CAlifórnia USA, com alta confiabilidade, A DiskMesas, faz parte deste pacote !!! e muitas outras vantagem para vc, como email personalizado, painel de controle em Português, trafego ilimitado, sub dominio a vontade, Registramos e gerenciamos seu dominio gratuitamente, faça um teste, é gratis!!! além de ganhar a liberação dos links de seu anuncio.... Cadastrar
    "; print MAIL "


    "; print MAIL " $espaco Sem Mais.
    "; print MAIL " $espaco Atenciosamente.
    "; print MAIL " $espaco Ismael.
    "; print MAIL " $espaco anuncio\@diskmesas.com.br \n
    "; print MAIL " size=1>
    \n"; print MAIL "$ENV{'HTTP_REFERER'}\n
    \n
    \n"; print MAIL "
    Local = $ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}
    \n"; print MAIL "$dia/$mes/$ano, $hr:$min\n"; print MAIL "
    " ; print MAIL "
    " ; } #=================================================== Fim do Email print "
    "; if ($countline1 == $maximum && $maximum){ last;} if ($length1 == $countline1){ last;} if ($countline1 == $enditem && $displaystat ne "Y" && $maximum>$countline1){ $stopit="Y"; last; }}} if ($stopit eq "Y"){ #--------------------------------------------------------26 sETEMBROde 2020 ------------------- print ""; print "
    • "; sub read_file { local ($filevar) = @_; <$filevar>; } close(FILE1); #====================== FINAL DA PÁGINA ================================ print "

    \n"; print "
    Clique em cima do DDD da sua região

    "; print "
    \n"; open (ox, "xxx.htm"); while () { $lines++; @campo = split(/\s*\|\s*/); $cidad = $campo[1]; print "$cidad | "; } close(ox); print "
    \n"; print "

    \n"; print " \n"; print "> Próxima Página >>\">
    \n"; } unlink "xxx.htm"; if ($flipflop eq "Default"){ print "\n";} else{ #################################### $tempo = "900"; $bd = "/home/diskmesa/public_html/online.txt"; $cor = "000000"; $texto = "Usuários"; use CGI; $query = new CGI; $ipx = $ENV{'HTTP_REFERER'}; $tmp = time(); open (bd,"$bd"); @bd = ; close (bd); foreach (@bd) {($ip,$tempox) = split(/\|\|/, $_); $tempon = $tempox + $tempo; if ($tmp > $tempon or $ip eq $ipx) { open(del,"$bd"); @del = ; close (del);chomp(@del); open(bx,">$bd"); close (bx); foreach $linha (@del) { if($linha eq "$ip||$tempox||||") { next; } else {open(delx,">>$bd"); print delx "$linha\n"; close(delx); }}}} open (bd,"$bd"); $cola = do {local$/; }; close (bd); open (bd,">$bd"); print bd "$ipx||$tmp||||\n".$cola; close (bd); open (bd,"$bd"); @bc = ; close (bd); $usuarios = @bc; if ($usuarios > 100) {unlink ("online.txt")} #------------------------------ FINAL DA PÁGINA ---------------------- print "

    "; print "
    "; print ""; print "

    "; print "
    | Cadastrar e Anúnciar\n"; print " | Ultimas Pesquisas"; print "| Quem está Online |

    "; print "
    "; print "Pesquizas feita até o momento!!
    "; print "
    $usuarios $texto Online
    \n"; print "

    Voltar a página inicial - clique aqui

    "; print ""; print<

    EOT ############### exit; ##################### google anality ############################# #=========================================================================== print "@closehtml\n"; } exit; sub noresults { if ($words eq "") { print "Você não digitou nenhuma palavra"; } elsif ($noresults) { print ""; }} sub security { print "Content-type: text/html\n\n"; if ($flipflop eq "Default") { print "\n"; print "==> DiskMesas, O local onde se encontra todos os prestadores de serviços para festas e eventos\n"; print "\n"; } else { print "@openhtml\n"; } &noresults; if ($flipflop eq "Default") { print "\n"; } else { print "@closehtml\n"; } exit; }